<%
showQuery=[select distinct ALMARA from (']+(dbclocation+[itemmast])+;
[') where len(alltrim(ALMARA))>0 order by ALMARA into cursor gotrecords]
&showQuery
Classes=[]
do while not eof()
if not empty(ALMARA)
Classes=Classes+chr(13)+[]
endif
skip
enddo
thisday=day(date())
thismonth=month(date())
thisyear=year(date())
fromdate=allt(transform(thisyear))+[-]+padl(allt(transform(thismonth)),2,[0])+[-]+allt(transform(1))
todate=allt(transform(thisyear))+[/]+allt(transform(thismonth))+[/]+allt(transform(thisday))
%>
SSSoft™ -
<%=XCOMPANY.NAME%>
Receipt